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E FATSS338 SATS SYSTEM SERVICE TESTS S$RESUME (SUCC S.C.) 
T *v04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ON OF THE ABOVE Fpl dhol NOTICE. THIS SOFTWARE OR OTHER 
THEREOF a NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
orpponat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 

HIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED 
WITH SUCCOMMON. OBJ, FORM TEST MODULE SATSSS38 TO TEST SUCCESSFUL 
OPERATION OF THE SRESUME SYSTEM SERVICE. THE SERVICE IS INVOKED 
UNDER VA INPUT CONDITIONS WITH VARYING INPUT PARAMETERS. ONLY 
SUCCESSFUL STATUS CODES ARE EXPECTE THIS TEST MODULE. CORRECT 
OPERATION OF ny SERVI Ree EACH OF ITS ISSUANCES IS VERIFIED BY 
CHECKING FOR AN SS$_NORMAL STATUS CODE, EXPECTED RETURN ARGUMENTS 


AND EXPECTED FUNCTIONALITY PERFORMED. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: AUG, 1977 
MODIFIED BY: 
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VER SION 1.5 : 25-MAY-79 
01 LDJ 10/11/79 Fix ed bug caused by DIBSK_LENGTH change ACGO52.RNO mem 
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-SBTTL DECLARATIONS 


INCLUDE FILES: 

R 

H 

Q 

C 

I 
EQUATED SYMBOLS: 


OWN STORAGE: 


MACROS: 
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SATSSS38 SYSTEM EP-1984 00: AX/VM ro V04- Page 
$Ou5880 RATION Breer oke Reishee PORT MCS wees yee ee wars1 P28 GZ, 
0000 4 .PSECT RODATA,RD,NOWRT.N XE, LONG 
5 TEST_MOD_NAME:: STRING C,<SATSSS : TEST MODULE NAME | 
E TEST MOD “NAME_D: STRING I.<SATSSS ST MODULE NAME DESCRIPTOR 
MSGI-INP“CTL:~ STRING I.< SSRES | 42u: tonbiT10Ns: | 
9 £8 FAO CTL éTRING FOR MSG1 IN SUCCOMMON.MAR | 
9 79 MEG3_ERR_CTL:: STRING 1,< *SSRES!42w: tas> 
1 0 FAO CTL STRING FOR MSG3 IN, SUC COMMON. MA 
0 1 1 SUBJPRN: STRING 1,<SATSSS38_CRE> : proc CLUSTER & MBX NAME FOR CREATED PROC 
: é IMAGNAM: STRING 1,<SYSTSTSRES: :SATSU TO5.EXE> ; IMAGE NAME FOR CREATED PROC 
0 4 QUOTALIST: SQUOTA CP : INFINITE CPU 
9 4 SQUOTA BYTLM,512 : BYTE LIMIT FOR BUFFERED 1/0 
0 5 SQUOTA FILLM.2 : OPEN FILE COUNT in IT 
0 6 SQUOTA PGFLQUOTA,10  : PAGING FILE QUO 
09 SQUOTA PRCLM, : SUBPROCESS QUOT 
09D 88 $QUOTA TQELM. : TIMER QUEUE EN NiRY QuoTA 
O0A2 9 SQUOTA LISTEND > DEFINES END OF 
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SATSSS38 SATS SYSTEM SERVICE TESTS S$RESUME (SUCC 16-SEP-19 0: AX/VMS Page 4 
v04-000 DECLARATIONS o73Eb= obc be 36:87 UETPSY.S RESgaYsss$8. MAR; 1 : (1) 
- 91 ~PSECT RWDATA,RD,WRT,NOEXE,LONG 
880088 3 0 tet -BLKQ ] ; ADDR OF fa yi MASK (IN P 
000000C 935 MBXCHA ~BLKL 1 ; CHAN. NO. FOR MAILBOX FOR CREATED PROCESS 
C 94 MBXCHANINFO: ; CHANNEL INFO RETURNED BY GETCHN 
000 thy 3 95 ~-LONG  DIBSK_LENGTH 
0000014" 3 89 ADDRESS .+4 ~ 
$38 gee 14 9 -BLKB  DIBSK_LENGTH 
000008C 0088 4 MBXUNIT: BLKL 1 ; SAVE AREA FOR MAILBOX UNIT NUMBER 
08¢ 99 MBXBUFF : STRING 0,120 ; MAILBOX BUFFER FOR CREATED PROCESS 
00000110 01 f 100 DEST PIDADR -BLKL 1 ; DESTINATION PID ADDR, WRITTEN BY S.S. 
00000114 011 101 ZEROPID: ~BLKL 1 ; PID OF ZEROES 
ed 1144 «1 § SELFPID: - LONG 9 ; PID OF THIS PROCESS 
11C 0118 1035 CREPID ~BLKL ; PID OF CREATED PROCESS 
00000120 011C 104 SUBJPID ~BLKL 1 ; PID OF SUBJECT PROCESS (SELF OR OTHER) 


“” 


TEM 


. ICE TESTS SRESUME (guce a ot ae 9 90:35:16 AX/VMS Ma 


SEP=1 UETPS? saedeatsssee.man:1 2% (2) 
.SBTTL CONDITION TABLES 
teres CONDITION TABLES FOR RESUME SYSTEM SERVICE seeee 
COND 1, NOTARG 
<NOT 


SATSSS38 SATS Vv 
y00s800 CONDI S 


- ADD 0 
- ADDRESS SUBJPID 
- ADDRESS ZEROPID 


COND  2,NOTARG,<PROCESS NAME ADDRESS>,- 
<SPECIFIED>, = 
<NOT SPECIFIED>,- 


.ADDRESS § SUBJPRN 
“ADDRESS OO 
COND 3.NOTARG. <PROCESS TYPE>,- 
<SUBPROCESS>,- 
<DETACHED, DIFFERENT GROUP>,- 


<DETACHED, SAME GROUP, SAME MEMBER>,- 
<DETACHED, SAME GROUP, DIFFERENT MEMBER>,~- 


. LONG “XFFFFFFFF ; PSEUDO-UIC 
LONG 3; PSEUDO-UIC 
-BLKL 1 ; UIC 
-BLKL 1 ; ulc 
-BLKL 1 ; UIC 


COND 4,NULL 
COND 5,NULL 
SATSSS38,RD,WRT,EXE 
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SATSSS38 SATS SYSTEM SERVICE TESTS SRESUME (SUCC 16-SEP-1984 00: AX/VMS V04- p | oh 
V04= TM_SETUP, TM CLEANUP Breen abe Bes sGcee FORSHES Bacee VOe eee mans1 20° Gb 
9 145 : .SBTTL TM_SETUP, TM CLEANUP 
149 t FUNCTIONAL DESCRIPTION: 
128 : M_SETUP AND TM_CLEANUP ARE CALLED TO PERFOR 
0 150 : REQUIRED HOUSEKEEPING AT THE BEGINNING AND END, RESPECTIVELY, OF 
i 131 ; TEST MODULE EXECUTION 
09 138 ; CALLING SEQUENCE: 
33 135 : BSBW TM_SETUP BSBW TM_CLEANUP 
§ 128 : INPUT PARAMETERS: 
000 138 ; 
9000 180 ; a 
itd 161 : IMPLICIT INPUTS: 
0000 168 : 
$000 164; -— 
0000 165 : OUTPUT PARAMETERS: 
0000 166 ; 
if 
9900 199 : IMPLICIT OUTPUTS: 
0000 171: TM_SETUP: COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
9000 17 ; ALL PRIVILEGES ACQUIRED 
9000 12 ; COMPLETION CODES: 
444 178 F EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
9000 178 3 SIDE EFFECTS: 
0000 180: SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
0000 +181: (VIA RSB) IF ERROR ENCOUNTERED. 
9000 188 ; 
000 1 3s-- 
0000 184 
$333 
$00 1 § TM_SETUP: : 
52 D4 99 1 : CLRL OR ; INITIALIZE 
53 400 1 CLRL ORR : 2. CON DITION 
54 «D4 «60004~=—s «190 CLRL =e RG ; . TABL 
554 006 191 CLRL RS gamete INDEX 
36 4 000 198 CLRL = R6 S paint te REGISTERS 
FFF3' 30 OO0A 19 BSBW § MOD_MSG PRINT PRINT TEST MODULE BEGIN MSG 
00000000" EF 90000000" EF DE 000D 19% MOVAL TEST MOD a CC,TMD_ADDR : ASSUME END MSG WILL SHOW SUCCESS 
03 00 9000 00 BF F a 195 INSV #SUCTESS7#0,#3,MOB_MSG_ ciots ; ADJUST STATUS EODE FOR SUCCESS 
$ 196 MODE RNL KERNEL MODE TO ACCESS PHD 
59 90000000" 9F 9F DO 0048 19 MOVL we? ogke RI GET PROCESS HEADER ADDRESS 
000000 DE O04F 198 MOVAL PuDSa Sermo. par vmia GET PRIV MASK ADDRESS 
36 19 MODE BACK TO USER MOD 
200 PRIV DD AE ; GET ALL PRIVILEGES 
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SATSSS38 SATS SYSTEM SERVICE TESTS S$RESUME (SUCC 16-SEP-1984 00: 4 VAX/VMS Macro age 7 SA 
SO1 S88 TM_SETUP, TM_CLEANUP g-S6F P=] 13b2 9:3: 3 UETPSY.SRCJ Sats 90598. MAR; 1 (1) Ta 
77 1 SSETPRN_S TEST_MOD_NAME_D : SET PROCESS NAME 
84 : SS_CHECR NORMAL : CHECK STATUS CODE RETURNED FROM SETPRN 
Be SWAKE_S SELFPID : GET MY PI 
C 4 SS_CHECK NORMAL 3; CHECK FOR WORRAL RETURN 
EF 5 SHTBER S : UNDO ABOVE WAKE 
OF6 § SS_CHECK NORMAL ; CHECK FOR NORMAL RETURN 
i 08 ; THE FOLLOWING CODE ESTABLISHES UIC'S IN THE CONDITION 3 TABLE 
124 210 MODE ; KERNEL MODE TO ACCESS PCB 
59 _00000000'9F D0 147211 MOVL so eenseee CURPcE R9 GET CURRENT PCB ADDRESS 
59 00BC C9 D 145 1 MOVL PCBS$L Mi IT(R9) RO ; : PICK UP UIC FROM PCB 
133 13 MODE FROM, 20$ + ee. AND ai BACK TO USER MODE 
0134 13 : RO NOW CONTAINS "MY" UIC 
9A 0154 i$ MOVZBL #2,R10 : GET COND3 TABLE INDEX NUMBER INTO A REG 
59 00010000 BF Ci 0157 218 ADDL3 #*X10000,R9,COND3_ECR10] ; PUT DIFF GROUP UIC INTO 3RD TABLE ELT 
0000024A'EF4A 015€ 
A D6 0164 219 INCL R10 : POINT 10, 4TH COND3 TABLE ELEMENT 
QO00024A'EF4A 59 00 0166 220 MOVL  R9,COND3_ECR10] : PUT MY UIC INTO TABLE 
SA OD6 0166 31 INCL Rid t POINT 10. 5TH COND3 TABLE ELEMENT 
QOO0D024A"EF4A 59 01 C1 017 : DL3 ,COND3_ECR10) PUT DIFF MEMBER UIC INTO THE TABLE 
0179 22 SCREMBX § "Ethic =MBXCAAN, LOGNAM=SUBJPRN, - ; GET MAILBOX FOR PROCESS 
0179 226 fiaxn $G=#120, PROMSK=A0. BUF QU0=#240 
19E 5 S$_CHECK RHA CHECK NORMAL COMPLETION 
1€C 6 SGETCHN_ 3 CHAN me X CHAI GET CHAN INFO (UNIT NUMBER) 
1¢ ? PRIBU PEMBXCHANINFO 
0166 228 S$_CHECK CHECK NORMAL COMPLETION 
00000088'EF 00000020'EF 3c 0214 $9 MOUZWL MBXCHANINFO*8+D1BSW._ UNIT, :MBXUNIT SAVE MAILBOX UNIT NUMBER 
05 O21F 0 RSB- 3 RETURN fo MAIN ROUTINE 
0220 231 TM_CLEANUP: 
0220 33¢ SDELMBX _S__MBXCHAN ; DELETE TERMINATION MAILBOX 
FDCF' 30 Oeet 23 BSBW  ~MOD_MSG_PRINT ; PRINT TEST MODULE END MSG 
05 0231 234 RSB : RETURN TO MAIN ROUT INE 
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- -SBTTL CONDITION SUBROUTINES = SETUP AND CLEANUP 
FUNCTIONAL DESCRIPTION: 


= 
n- 


E 


c< 


CONDX AND CONDX_CLEANUP ARE SUBROUTINES WHICH ARE EXECUTED 

BEFORE AND AFTER THE VERIFY SOBROUTINE, RESPECTIVELY, WHENEVER A NEW 
CONDITION X VALUE IS SELECTED (SEE FUNCTIONAL DESCRIPTION OF SUCCOMMON 
ROUTINE IN SUCCOMMON.MAR). ANY SETUP FUNCTION PARTICULAR TO THE 
CONDITION X TABLE IS INCLUDED IN THE CONDX SUBROUTINE AND CLEANED 
UP, IF NECESSARY, IN THE CONDX CLEANUP SUBROUTINE. THIS INCLUDES 
ESPECIALLY, CODE TO DETECT CONFLICTS AMONG CURRENT ENTRIES IN TWO 
OR MORE CONDITION TABLES. IF A CONFLICT IS DETECTED, A NON-ZERO 
VALUE IS STORED INTO CONFLICT, WHICH CAUSES THE CALLING ROUTINE 

: (SUCCOMMON) TO SKIP THE CURRENT ENTRY IN THE CONDITION X TABLE. 


; CALLING SEQUENCE: 


BSBW CONDX BSBW CONDX_CLEANUP 
WHERE X = 1,2,3,4,5 


INPUT PARAMETERS: 
CONFLICT = 0 
IMPLICIT INPUTS: 


R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
FOR COND TABLES 1,2,3,4,5, RESPECTIVELY. 


OUTPUT PARAMETERS: 
CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED. 
IMPLICIT OUTPUTS: 
R2,3.4,5,6 PRESERVED 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 
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ROOD NAMUE WIN OOD NAMES WIN 9 OD NOAOU EWN SO OODNAUE WN OVONOUFSWN—OOOnNG OF 
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SGOOCOCOCOSOOOOOOSOOCOSOCOCOCOOCO SOOO OSOCSOOOCOCOOCOOOOCOOOOOOOOOOOOOOOOOOOOoOO MH 


0000000 09000000 09 0909 SII 


COND1:: 

05 ; RETURN TO MAIN ROUTINE 
COND1_CLEANUP: : 

05 cone R ; RETURN TO MAIN ROUTINE 

05 ; RETURN TO MAIN ROUTINE 
COND2_CLEANUP: : 

05 RSB ; RETURN TO MAIN ROUTINE 
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5005880 CONDITION SUBROUTINES - SETUP AND CLEANU 5-SEP= 1384 80: 36; 3 UETPSY. SRCISATS voes 9s. MARST C4) 
36 95 COND3:: 
0000016B'EF 42 0000011¢ "SF D1 i CMPL #SUBJPID,COND1_ECR2] : NON-ZERO PID SPECIFIED ? 
9 1 4 95 BEQLU 1 : == PROCESS IS "OTHER" 
QOOOO1AD'EF4S =D 4 %6 TSTL COND2_ ECR3) + IS PROCESS NAME SPECIFIED ? 
97 1 48 29 BEQL $ : NO == SUBJECT PROCESS IS ‘’SELF'’ 
02 54 Di 024d 298 CMPL = RG, #2 : DOES CONDITION 3 SPECIFY DIFFERENT GROUP ? 
20 «13 29 99 BEQL 20§ t YES == PROCESS NAME FOR DIFF GROUP IS CONF 
10 «11 é i BRB 10$ : NO -- MAKE SURE COND 3 SPECIFIES ‘OTHER’ 
4 ; 
: 08 : PROCESS IS "SELF" 
Q000024A'EF44  GO000000'EF 1 2 8 CMPL ‘ONES, COND3_ECR4] : DOES CONDITION 3 SPECIFY ‘SELF’ ? 
iB 13 69 06 BEQLU COND SX + YES <= THEN CONDIT'NS ARE CONSISTENT 
OE 11 026 ? BRB 0$ : NO == INDICATE CONFLICT & GET OUT 
0264 308 10S: 
0264 09 ; 
0 64 10 : PROCESS IS “‘OTHER" 
Q000024A'EF44  O0000000'EF 01 0264 1 CMPL ONES, COND3_ECR4] : DOES CONDITION 3 SPECIFY ‘SELF’ ? 
OB 12 0 20 13 ad BNEQU CONDSxX + NO -- THEN ALL 3 CONDITIONS ARE CONSISTENT 
00000000'EF  O0000000'EF 90 0372 13 enaill MOVB = ONES, CONFLICT > YES <= INDICATE CONFLICT 
05 $53 17 ; RETURN TO MAIN ROUTINE 
027E 318 COND3_CLEANUP:: 
05 O27E 319 : RETURN TO MAIN ROUTINE 
027F 30 COND4: : 
05 027F 1 RSB ; RETURN TO MAIN ROUTINE 
0280 32 COND4_ CLEANUP: : 
05 0280 32 RSB ; RETURN TO MAIN ROUTINE 
0281 24 CONDS:: 
05 0281 325 RSB ; RETURN TO MAIN ROUTINE 
0282 326 CONDS_CLEANUP:: 
05 0282 327 RSB ; RETURN TO MAIN ROUTINE 
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SATSSS38 SATS SYST 
¥04-000 FORM_ COND Tea yees 88. mars: Pee 19 
ee .SBTTL FORM_CONDS 
1 ty FUNCTIONAL DESCRIPTION: 
: : FORM_CONDS FORMATS AND PRINTS INFORMATION ABOUT 
4 : THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES. 
6 : ; CALLING SEQUENCE: 
028 38 : BSBW FORM_CONDS 
0 : 40 ; INPUT PARAMETERS: 
0 4g : NONE 
0 a 43: 
8 Ht rf: 3 IMPLICIT INPUTS: 
$583 46 : R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
0283 347 : FOR COND TABLES 1,2,3,4,5, RESPECTIVELY. 
0283 348 : FOR X = 1,2,3,4,5 : 
0 83 349 : CONOX’T’= TITLE TEXT FOR CONDX TABLE 
028 50; CONDX"TAB = ELEMENT - TEX T FOR CONDX TABLE 
0283 331 : CONDX7C = CONTEXT OF THE CONDX TABLE 
ose $26 3 CONDX_E - DATA ELEMENTS OF THE CONDX TABLE 
0983 334 + OUTPUT PARAMETERS: 
283 55 : 
A 
0385 38 ; IMPLICIT OUTPUTS: 
i ioe 
0883 364 ; COMPLETION CODES: 
0 8 64 : NONE 
383 65 : 
0285 66 : SIDE EFFECTS: 
0283 368 : NONE 
0283 69 ; 
6 : i 
7 
Bs 398 
8 74 FORM_CONDS: : 
8 75 $FAO_S MSG1_INP_CTL,FAO_LEN, FAO_DESC. TESTN NUM 
02A i: 7 FORMAT CONDITIONS HEADER MSG 
FD5B' 30 O2A 7 BSBW  OUTPUT_MSG : AND PRINT IT 
14 00 91 0 A 78 #COND1~C, #NULL : 1S" CONDITION 1 NULL ? 
12 02A8 379 BNEQU t NO == CONTINUE 
OOBF 31 0 AA 0 te BRU FORM_CONDSX : YES == SUBROUTINE IS FINISHED 
"EF 120'°EF A MOVAL COND1_T ; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO 
OOBMDODO Ere 000004 90° EFae 06 88 : MOVL  COND1 “Thee MSG_B ; SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO 
00000000'EF 00 9 C4 4 MOVE ND G_¢€TxT™ SAVE CONDITION 1 CONTEXT FOR FAO 
CB 5 MOV_VAL COND1_C,CONDT_ELR2],MSG baTAl; GIVE COND 1 DATA VALUE TO FAO 


ska 


00000000 EF 
a 


00000000 ' EF 
00000000 ' EF 
000 


00000000 ' EF 
OOOOOOO0'EF 00 
00000 


00000" EF 


000 oie oa 
eee fs 


0000025F 
0000000' EF 


FC94" 


oOo, 
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20$: 


30$: 


BSB 
FORM_CONDSX: 
RSB 


B 15 
at tb 4 
“SEP=1984 
WRITE MSG2 
# OND2” e° #NULL 
FORM_CONDSX 


COND 
COND STABERSI 


rt oe B 


#COND SAVE 
Conbe.C t mi Nb2 _ECR3],MSG_ baTAl 


FCOND3” C,#NULL 
FORM_CONDSX 


COND3_T site! 

COND 3. tHe Rai. MSG_B 
fons. CTxT” 
COND3_C CONS” “EERGI, MSG 


ONDS_T,M 
COND4 CTABERS) MSG_B 

sc_¢ 
D4, CONDE. ECRS],MSG_ 
ius C,#NULL 
FORM CON NDSX 


CON NDS T 

cons CTABERE MSG_B 

COND TXT” 
CONDS_C CONDS ECR6],MSG_ 

WRITE-MSG2 


00:36:57 
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UETPSY.SRCIJSATSSS58.MAR; 1 (1) 


ge ott ”“ -— , * oo 1 MSG 
NO == CONTINUE 
YES == SUBROUTINE IS FINISHED 


3 SAVE prt et OF pg 2 TITLE FOR 
; SAVE ADDR OF C 2 TEXT ELT FOR 


C 
ni GIVE C 
; FORM AT AND UR Te CONDITION 
: 1S vagy ES NULL ? 
; NO == CONTINUE 
; YES == SUBROUTINE IS FINISHED 


; SAVE ADDRESS OF pei 3 Yims FOR F 
: SAVE ADDR OF CO T ELT FOR F 


SAVE 
batat 
FORM 


MSG 


DATA_VALU 


SAVE C 
DATA ;_GIV 
FORMAT oe 
Y ROUTINE Is F INISHED 
SAVE tee OF Se gt hh 5 TITLE FOR 
: SAVE ADDR OF COND R TEXT ELT FOR FAO 


SAVE CO 
baTAl ;_GIVE COND 
; FORMAT AND WRITE CONDITION 


; RETURN TO CALLER 


Sete ee ee , oe BeBe Be Be te 


MSG 
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*eerer Sete SS Fe SFO FS FS FS FS FS FS FS FS FS SS FS SCS FSO FS FSFE FSFE *e Fe *e*e*e Fee *e Fete te *e*e*e *e*e*e*e*e*te*te te *e*ea tata *e*e 
XMPNTMOAOR- OOO — CUP TWN OR. DOO CUM TF MNOR-. DAO CUM TUNOR. OOO DOK UMM TNO. O 


a OPI Ls) 
IOI OOOO EEE PIPPI SF SF SF ST TT TTT TMMNUNAAUAUAAIUANINOOWOOOOOOORARALAPEPS. 
i ee ee ee ee ee ee ee ee ee ee ee ee ee 


BAQBDAAAHOHAAAGBHHAHAGBHAAABAAGBAGBAAGBASG ABBAAAAoGAAAAahHhHAaAaaHaaoaoaoaaoaeaaa 
WDOOOOOOOOOODOOODOODODOODODOODOODODOODODODIOODOODDODOODODDOODODOODOOODOOO00000 
hl lh al Ahk Ah hk lh kok kek ek a ek kk lk ok lh ol ok lll ll ll oll 
COOOOOOSOOOSOSOSOSOSOSOSOSOSSOSOSOSOSOSOSOSOSSOSOSOOSOSOSOSOSOSSOSOSSOOOOOSOOOOOOOOOOOoSOoO 


VERIFY 


015 
TS SYSTEM SERVICE TESTS SRESUME (SUCC 16-SEP-1984 AX/VM V04- Page 13 
b IETS PA aS Te Tate | POPE la 


sli a 


F 


VERIFY 
00000000" EF % TSTB Sage ; SHOULD CONDITIONS BE PRINTED ? 
2 oe BEQL $ 3; NO <= N 
FFOB 30 S$ BSBW FORM_CONDS ; YES == FMT & PRINT ALL CONDS FOR THIS T.C. 
QOOOO11C"EF  QO000114°EF 00 MOVL SELFPID,SUBJPID ; ASSUME THE SUBJECT PID IS SELF 
QOOOO1I0"EF 04 CLRL ZEROPID ; CLEAR ZERO PI 
O0000024A"EF 44 sceteteiedl | D1 CMPL QUES .CONDS_ECR43 ; IS PROCESS FOR THIS TEST CASE SELF ? 
pe BNEQU $ ; NO -- CONT 
0074 31 BRW 10$ 3 YES == DON'T CREATE A PROCESS 


~ 
A ad 


SCREPRC_S PIDADR=CREP D, PRCNAM=SUBJPRN, - 
UIC=COND3_ECR4], IMAGE=1MAGNAM 
MBXUNT= PBRUNIT. QUOTASQUOTALIST 
; CREATE THE SUBJECT PROCESS 
SS_CHECK NORMAL + «+. AND MAKE SURE IT CREATED OK 
MOUL  CREPID, SUBJPID : MAKE THE SUBJCT PID = THE ONE JUST CREATED | 


MOVL COND1 EER ¢]-DE »DEST_PIDADR ; GET PID ADDRESS OUT OF TABLE 
MOVL COND2-ECR3] ; PRCNAM ADDR INTO REG FOR INDIRECT REF 'RNCE 


; eeeeee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE *eeeee 
+o te S$ PIDADR=@DEST_PIDADR, PRCNAM=(R9) 


OOOOO1IC"EF  O0000118"EF DO 


OOOOO1IOC"EF  Q000016B'°EFS dO 
59 Q00001AD'EFS dO 


10$: 


00000000 ' 8F 30 pt CHPL ROM SS$_NORMAL™ 3 cove RECEIVED = CODE EXPECTED ? 
00000000'EF 00000000'8F D0 MOVL #SS$_NORMAL ,EXPV NO -- LOAD UP EXPECTED AND ... 
O0000000'EF 50 00 MOVL RO,RECV RECEIVED VALUES THEN EXIT 
os ERR_EXIT A One. <INCORRECT STATUS tobe’ RETURNED FROM RELUME> 
0000010C ‘EF bs ; at DEST_PIDADR : Alp RETURNED BY RESUME ? 
OOOO010C'FF  QOOOOO1IC'EF 01 CMPL SUBJPID,@DEST_PIDADR iY YES -- IS IT THE CORRECT ONE ? 
5B O13 BEQL 20$ ; YES == CONTINUE 
OOO00000'EF OOO00011C'EF D0 MOVL SUBJPID,EXPV ; NO --LOAD UP EXPECTED AND 
OO0000000'EF O000010C'FF DO MOVL a & RECEIVED VALUES, THEN EXIT 


@DEST_PIDADR,RECV 
ERR_EXIT LONG7<INCORRECT PID RETURNED BY RESUME> 


20$: 
O0000011C'EF 00000118'EF 01 CMPL cag »SUBJPID ; WAS A PROCESS CREATED ? 
38 S13 BEQLU : YES == GO WAIT FOR IT TO COMPLETE 
SSUSPN ; NO == OFFSET SUBJECT RESUME WITH SUSPND 
ss SHEERS NORMAL : CHECK FOR NORMAL RETURN 
BRB VERIFY 3... AND GO EXIT 


30$: 
$Q10W_S CHAN=MBXCHAN, FUNC=#10$_READVBLK, - 
P1=MBXBUFF+8, P2=MBXBUFF 
; WAIT FOR CREATED PROCESS TO SEND MAIL 
SS_CHECK NORMAL s CHECK FOR NORMAL STATUS CODE 


RSB ; RETURN TO CALLER 


0 
0 
0 
0 
Ton gs 
0 
0 
Q 
0 


VERIFYX: 


Fe NNN lb Bins Bnke ee RA ee eeeeeeee 

FP OOWNWN §- WOOD DOD OM WW DD OMY CO PININN FP MMWiiyS }& Sb F NNOWWOOUIWoOoVTTT7 

PV PV PV PVP PVPVPVPTLIUPVLPULVLVSVSUSUS UST TST VSVST SISTINE BB BB PPP PLP LLL 

NOONAN EWN = OOO NAUL WN SO OOO NAME WN OS OD NAUE WN S(O OONAUES WOO 
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SATS SYSTEM SERVICE TESTS SRESUME 


VFY_ CLEANUP 


ssi 


F 

T 

E 

Ss 

0 

T 
ON TABLE INDEX VALUES 
CTIVELY. 


T 

U 

E 

U 

D 

s 
IT] 
RESPE 


E 
T 
0 
N 
E 
0 
6 CONTAIN CURRENT CON 


Y 
U 
A 
L 
D 
024304,5, E 


E’= ADDRESS OF TABLE OF DATA VALUES FOR CONDX 
E. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE 


ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM 


FOR CONDX_E. 


f D TABLES 1 
@ 7 
C 
OUTPUT PARAMETERS: 
SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 


EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
(VIA RSB) IF ERROR ENCOUNTERED. 


.SBTTL VFY_CLEANUP 
SIDE EFFECTS: 


FUNCTIONAL DESCRIPTION: 
H 
U 
Pp 
T 
m 
5 
BSBW VFY_CLEANUP 
INPUT PARAMETERS: 


F 
H 
E 
V 
F 
CALLING SEQUENCE: 
CLEANUP: : 


NONE 
IMPLICIT INPUTS: 
2 
0 
NONE 
IMPLICIT OUTPUTS 
NONE 
COMPLETION CODES 


VF Y_CLEANUPX : 


VFY_ 


Drea eee eee CATA CAA AAA AAA AAA AA ALAA T AAA AAA LALLA ALA LDH 


LVLVLVLVLVLVLVLVLVELVLVLVLVLVLVLVELVLVLVELVLVLVELV LV ELVELV ELV ELL VEL VALLES ELV ELV ELV LVL VL ELV ELV ELV EL VELV ELVES VEL VEL DLV ELLY ELV AS VELL 
COOOOOOOCOCOOCOOCOOOOOOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOSOOSOSOSOOSOOSOOSOOSOSOOOSOOOOO 


—m™ 
on 


OF 


00000118'EF 


0000011C ‘EF 


sis 


SATS Syste 
VFY CLEANU 


° O8t8 


F 15 
SERVICE TESTS SRESUME E (succ <> 


91 RSB 
92 «END 


SEP=1 
SEP=1 
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SATSSS38 SATS SYSTEM SERVICE TESTS SRESUM UCC 16-SEP-19 4 VAX/VMS 04- Page 1 
Symbol table gS eE 198 5 UETPSY. OS599.MAR: 1 ( 
$$ = 4D0 R DIBSW_UNIT 0000000C¢ 
SCHA = EFLA eeereeee 4 
SSSCHARS1 s EXPV eeeneere 4 
SSSCHARS = A FAO_DESC eeeeenee 4 
SSSCHARS = 9 FAO_LEN eereeree 4 
SSSCHARS4 = 1 FORA_CO 000283 R 4 
SSSCHARSS = 6 FORM_CONDSX f of 4 
SSSCOND_A = % IMAGRAM 06 2 
SSSSTRIAGS = } 10$_READVBLK eenreeree 04 
SSSSTRINGS2 = ONG = 68 ope 
$$T1 = 1 MBXBUFF f 
$$T2 = & MBX CHAN 8 : 
BYTE = 1 MBXCHANINFO f 
CFLAG eeeeeree xX 4 IT 00000 03 
CHMRTN teeeeeee 8 § 6X 4 MOD MSG CODE geeeeeee 04 
CHM_CONT eeeeeeee =X 4 MOD" MSG" PRINT reenter 04 
COMP SC eerenere §X 4 MSGT_INP_CTL 00000019 88 
CONDT 0000232 RG 04 MSG3_ERR_CTL 00000039 RG 0 
COND1_C = 00000 ° MSG_ eeeeneee =X 04 
COND1_ CLEANUP 44 RG 04 MSG_ aeeneene =X 8604 
COND1_E it 168 R 03 MSG_CTXT eeeeeeee =X 8604 
COND1_ 000012C RG 8 NOTARG = 00000000 G 
COND1_ 0000120 R 0 NULL = 00000014 G 
COND1_TAB 000012D R 03 ONES eeeeeeee =X | =—04 
COND 0000234 RG 04 OUTPUT_MSG aeereene 04 
CONDe = 00000 99 PCBSL_UIC = 000000B8C 
COND2_ CLEANUP 0000 RG ie PCV weeeenee =X 804 
COND2_E 494 AD R 3 PHDSQ_PRIVMSK = 0000000 
COND2_H 0000 19¢ RG 03 PQL$_BYTLM = 0000000 
COND2_T 00000177 R 03 PQL$_CPULM = 4 44 9 
COND2_TAB 000018D R 03 PQL$_FILLM = 00000006 
COND 0000236 RG 8 PQL$_LISTEND = 4 444 
COND 3x 000027D R 4 PQL$_PGFLQUOTA = 0000000 
COND3_C = 00000000 PQL$_PRCLM = 00000008 
COND3_ CLEANUP 0 E RG 04 PQL$ TQELM = 4 445 
COND3_E 4A R 03 PRIVAASK 0000000 R 03 
COND3_H 00001C2 RG 0 PRIV_ARGS = 00000002 
COND3_T 0000185 R 8 PROCESS_ERR aeeeneee§ §=6X | 04 
COND3_TAB & QUAD = 00000008 G 
COND4 F RG 04 QUOTALIST 00000084 R 02 
COND4_C 14 RECV eeeerere 04 
COND4 _CLEANUP 0 4 REST_REGS etenenee 8 
COND4_H E SAVE_REGS eeteneee 4 
COND4 _ ER SCHSGL_CURPCB seeeeres e 
COND4_ TAB ; R SELFFIO 00000114 3 
CONDS_¢ 14 s SUBIPID 9000011¢ 03 
FONDS ELEANUP 2 4 SUBJPRN 0000051 93 
COND5_H 102 >F SUCCESS eeeeeere 4 
OND5_T FR SYSSCMKRNL eeeeeree 4 
OND5_T f SYSSCREMBX eeeeenee 4 
CONFLICT fereener 4 SYSSCREPRC eeeeeeee 4 
CREPID 00000118 3 SYSSDELMBX eeeeeeee 4 
CTLS$GL_PHD erecerer 4 SYSSDELPRC eeeeerer 4 
DESC 010 SYSSFAO eeeeeree 4 
DEST_PIDADR of 03 SYSSGETCHN areeeree 4 
DIBSR_LENGTH 074 SYSSHIBER eeeerere 4 


SATSSS38 
Symbol table 


VFY_CLEANUP 
VF Y"CLEANUPX 


WOR 
WRITE _MSG2 
ZEROPTD 


PSECT name 


Initialization 
Command processing 


Pass 

Symbol table sort 

Pass 

Symbol iable output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


He working s 
32 eytes,, 
os were 
92 source 
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H 15 
AX/VM 


4: 


Macr 
UETPSY.SRCJ 


9¢598.mAR;1 


ov 
SATSS 


eeeeeeee 6X 4 
eeeneene 6X 4 
wereeene GX 4 
eeeereee 6X 4 
teenreene GX 4 
keneneee 6X 4 
00000000 RG 03 
90000009 RS 
reekeeee x 4 
reereene 4 
4 
8000000 Re 04 
4 036 4 
QOOOSAA R 4 
00000 RG Be 
Q00005C7 R 4 
= 00000002 , 
reeeneee 04 
00000110 }. 03 
ge ae asntes eas eweos + 
! Psect synopsis ! 
perme ee eso ne emer en + 
Allocation PSECT No. Attributes 
00000000 ¢ 0.) 00¢ 0.) NOPIC USR 
00000000 Bf 01 ¢ 1.) NOPIC USR 
QOOOOA7 ( 167.) 8 ( €°3 NOPIC USR 
0000260 ( 608.) 03 ( 3.) NOPIC USR 
000005C8 ( 1480.) 04 ¢ 4.) NOPIC  USR 
i saniehintaianineiiaitia tebe Splice giianiidatiapaistal 
: Performance indicators ! 
Page faults CPU Time Elapsed Time 


137 See 
. +O8:0079 
BER 
sal $8:99:00:00 


set t Limit was 1700 pages. 

‘ 2 pages) of virtual memory were used to buffer 
0 pages of symbol table space allocated to hold 4 

thes were read in Pass 1, pr 

48 pages of virtual memory were used to define 3 


oduc ing 
macros. 


he intermediate code. 
489 non-local and re local symbols. 
4 object records in Pass 


LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
LCL NOSHR EXE RD WRT NOVEC BYTE 
LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
LCL NOSHR NOEXE RD WRT NOVEC LONG 
LCL NOSHR EXE RD WRT NOVEC BYTE 


SATSSS3 


15 
; 8 SATS SYSTEM SERVICE TESTS SRESUME (succ as tab 9: 90:38: AX/VMS Mac 
VAX-11 Macro Run Statistics P=1984 04:30: 


4 Page 1 
- 757 CUETPSY.SRC Toa oes$5. MAR; 1 . ( 


bower ere ss een eee eee ee eee eee th 


! Macro Library statistics ! 


Peer ewe een ose een een een eeecee} 


Macro croveart name Macros defined 
been eye re a -MLB;1 9 
$38bun B;1 ¢ 
55$0UA28: CSYSLIB STARLET. PAL: 2 § 
732558 (all Libraries) 5 


896 GETS were required to define 35 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SATSSS38/0BJ=0BJ$:SATSSS38 MSRC$:SATSSS38/UPDATE=(ENHS$: SATSSS38) +EXECMLS$/LIB+SHRLIB$:UETP/LIB 
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